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| 
3 1 01 MODULE writeboot ( ! Writes boot block code and data into LBN 0 
; § ' O0¢ IDENT = Woe Ope. 
: 8 MAIN = write_boot 
3 4 004 dz 
é 5 005 BEGIN 
i. B07 | | | 
3 : 43 : Lee R RR ARAAE RARER AAAAAAARAE RAE E RAAT AER EE T AAA RAAARAREAERAREEERERREEREE | 
3 '® * 
. 010 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 11 011 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * | 
3 \¢ pols ; is ALL RIGHTS RESERVED. * 
° . e | 
;s % 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s 15 opt? 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;s 1 1 !* JNCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
. TV 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
Vs 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
: i sid 84 : i. TRANSFERRED. * 
Py > ® 
3 $1 $051 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ¢ ot 4 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $7 it : . CORPORATION. * 
; ; * 
3 $e 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 $8 88 § : > SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° }H * i 
; «28 0028 1! * 
: 50 34 Ll eee eee eee RRR AAARERAEAREARE AREA EE RATA EAE A TEETER AEE AERA EERE 
3 00 1! 
3 1 0031 1 !++¢ 
H $8 O03¢ 1 ! FACILITY: 
; 0033 1! | 
3 4 0034 1! WRITEBOOT 
; 3 ist i i ABSTRACT 
; mw $089 1! — 
3 # 0038 1! The purpose of this uciiity is to write a BOOTable program into 
: 9 444 1! LBN 0 of a systen disk or TUS8. This BOOTable program will 
; 40 040 1! contain within its first ‘three longwords, the starting LBN and 
s 61 0041 1! size of a ec raery VMS bootstrap file located on this same system 
3s 62 O0%§ 1? disk or TU58 and also the relative location in memory where the 
: «6443 ,: or leery bootstrap should be loaded. The system disk or TU58 may be 
4 rf pee ‘ : a FILES11 (ODS-2) or an RT=-11 formatted device. 
; 46 B06 1 ! ENVIRONMENT: 
: 67 one 1! 
; 48 28 1! VAX/VMS operating syaten requires L0G_10 privilege. Assumes 
3 $3 sed ; bootstrap file is V .EXE unless otherwise specified. 
a 051 1 ! AUTHOR: | 
3 2g 336 1! 
3 055 1! Carol Peters 20 June 1979 
Z 2 0054 1! 
; 5 55 1 ! REVISION HISTORY: 
; 2$ 026 1! 
. § 0057 1! 


vO3-003 TCM0001 Trudy C. Matthews 10-Aug-1983 | | 
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Ensure that the bootfile is contiguous before writing the 
boot block. 


v03-002 RASO175 Ron Schaefer 28-Jul-1983 
Eliminate useless reference to FABSV_UFM. 


V03-001 PCA1006 Paul C anogneste oulos 9=Dec-1982 
Modify the initialization of the BOOTBLOCK.EXE RMS control 
blocks so that the logical name BOOTEL OSE an be used. 

On systems with Library disks, this image is not on 
the system disk. 


v02-002 STJ0054 Steven T. Jeffreys, 29-Jun-198' 
Changed external routine references to use general address:'ng mode. 


Epis aate 


SSS 


—> tb 2 2 2b bs —) 2 > a 2s 4 5 dd 


s 
65 
i 


Robert Rappaport 10 aup 1979 
Major changes to accomodate RT-11 format devices. 


Steve Jeffreys 12 Nov 1979 : 
- Enable WRITEBOOT to accept input from an indirect command file. 
Remove verify prompt for target device. 
Add prompt for VBN of code in boot file. 
Allow boot code to be loaded at an arbitrary address. 
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(expressed as offset from sp). 
i] 
Own storage 


OWN 
priboo_descrip : BLOCK rs prve? INITIAL ! Device/file spec descriptor. 
(REP 3 OF (0), 
dsc$k_class_d 
REP 4~OF (O3)S, 
gvre, INITIAL ! Load address string descriptor. 


(REP 3 OF (0), 
eocbs £1 0e8 


YT 


loadadr_descrip : BLOCK (8, 
(BYT 


d 
P 47OF (O3)S, ; 
pvtes INITIAL ! Prompt string descriptor. 


(REP 3 OF (0) 
dsc$k_class_s5), 


rompt_descri : BLOCK (8, 
sea ° (BYT 


; 3 ; 1! 

: 1 ! Table of contents 

; 5 0 1! 

; : 085 1 

H 0 1 FORWARD ROUTINE 

; 8 0 1 write _boot; 

3 9 0 : 1 

>; 90 0 1! 

; 090 1 ! Include files 

3 092 1. 

3 Be 0038 : LIBRARY ‘SYSSLIBRARY:LIB.L32'; ! VMS system definitions. 
; © 0095 1! 

:; «97 00 1 ! External declarations 

; 0097 1! 

; WP 0098 1 

; 100 0099 1 EXTERNAL ROUTINE 

; 101 0100 1 ots$cvt_tz_l : ADDRESSING_MODE (GENERAL), 

3 4 1 LibSindex ADDRESSING_MODE (GENERAL), 

3; 0 1 Lib$put_output ADDRESSING_MODE (GENERAL), 

: 104 1 Lib$sfreel_dd ADDRESSING_MODE (GENERAL), 

HY 05 1 RTFSTARGET DEV =: ADDRESSING_MODE (GENERAL), 

H 06 1 RTF SOPENF ICE ADDRESSING_MODE (GENERAL), 

3 4 ; Lib$get_input ADDRESSING_MODE (GENERAL); 

: 109 1! 

3; 30 1 ! Macros 

; 6111 1! 

3 \¢ 1 

; 11 1 MACRO 

; (114 1 bbl_l_filesize = 0,0,32,0%, ! Primary boot file size in blocks. | 
3 45 1 bbl_wihiordlbn = 4,0,16,0%, ! Hi order word of starting LBN of primary boot 
; 116 1 bbl_w_loordlbn = 6,0,16,0%, ' Low order word of starting LBN of pr inary boot 
3 \? : bbl_t_loadadr = 8,0,32,0%; } Address at which to load primary boot file 
3 119 1 

; 120 1 

: 1s | 

3 Yes 1 

3 2 1 

3 1 

3 8 1 

3 $3 1 

3 1 

; H 1 

3 § 1 

3 * 1 

3 1 

3 a 1 

: 1 

3; «6137 1 

; 138 1 

3; «64139 1 


a a er re re re rr SL. LL, _.... LL LT, LL 
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gre. INITIAL 
(REP 3 OF (0), 


dsc$k_class.d 
REP 4 OF (O79 5, 


vbn_descrip : BLOCK cs ! Prompt string for VBN 


; 140 139 1 

> «(141 re 1 

3 196 141 

; 14 16 1 

3 (146 145 (1 

3 «6145 144 «1 

3 148 145 1 riboo_fab : SFAB_DECL, ! Primary bootstrap file's FAB. 

: 4 148 : ootbl_ fab : SFAB_DECL, ! Boot block file's FAB. 

3 149 168 1 priboo_filnam VECTOR praeee BORER. BYTE], ! Primary bootstrap file name after open. 

: 129 12 ' priboo_exp_name : VECTOR [nam$c_maxrss, BYTE], ! Primary bootstrap file name before open. 

i 132 131 1} bootbl_filnam : VECTOR presse Senrss. BYTE], ! Boot block file name after open. 

: 12? 136 : : bootbl_exp_name : VECTOR [nam$c_maxrss, BYTE], ! Boot block file name before open. 

; 138 0154 ; : result_nam_blk : SNAM (RSA = priboo_filnam), ! Related file NAM block. 

: 157 0156 1! bootbl_nam_blk : SNAM ( ! Name block for BOOTBLOCK.EXE. 

; 158 Bt2 1! RSA = bootbl_filnam, 

3 6159 158 1! RSS = nam$c_maxrss, 

; 160 0159 1! ESA = bootbl_exp_name, 

3: «6161 3160 1! ESS = nam$c_maxrss 

; l6¢ 161 1! RLF = resul€_nam_blk), | 
3 164 P o168 1 priboo_nam_blk : SNAM ( ! Name block for primary bootstrap. | 
: 165 P 0164 1 RSA = priboo_filnam, 

: 166 P0165 1 RSS = nam$c_maxrss, 

3; 167 P 0166 1 ESA = priboo_exp_name, 

; Hb 344 ; ESS = nam$c_maxrss), 
: 170 0169 1 riboo_xabfhc : S$XABFHC (), : ovsaery bootstrap file header characteristics bloc 
: 4 giro : : ootbl_xabfhc : SXABFHC (), ! Boot block file header characteristics block. 
: 173 8178 1 privilege_mask =: BLOCK fs. BYTE), 
3 (174 0173 «1 getjpi_itemlist : BLOCK (4, LONG] INITIAL 
3 175 0174 1 (WORD (8, JPI$_PROCPRIV) | 
3; 1% 0175 1 LONG (privilege_mask, 0,6), | 
: 444 p176 : jo_stat_block : VECTOR (2], 
: 179 o178 two_block_buf : BLOCK (1024, BYTE), | 
; 181 0180 1 bootdev_descrip : BLOCK (8, BYTE), 

3 ise 0181 1 bootdev_chan : WORD, 

. ¥ 18¢ 1 load_adr :_ LONG, : 

aoe 1 1 devchar_buff : BLOCK (3, LONG] ! Buffer to receive device characteristics. 

; 185 184 INITIAL (LONG (REP 3 OF (0))), 

; 189 O186 | ; | 
3; «6188 ai3 1 devchar_descrip : BLOCK (8, BYTE) ! Descriptor for Device characteristics. 

; 189 188 INITIAL (LONG (12, devchar_buff)), | 
: 191 8190 1 filnam_descrip : BLOCK (8, BYTE) ! Descriptor for just the file mame (no device or di. 
: 198 191 1 INITIAL (BYTE (REP 8 OF (0))), 

; 19 192 1 filspec_descrip : BLOCK BY ! Descriptor for file spec returned from SPARSE. 

; 194 19 INITIAL (LONG (0, priboo_exp_name)), 

: 196 195 1 


EAN — 


vbn : VECTOR C1, LONG), ! VBN of boot file code 
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; 197 196 ! stat_block : VECTOR C2, LONG]; ! Area to hold LBN and size of specified file. 
* 136 1 BIND 
; 200 1 1 block_buffer = two_block_buf : BLOCK (512, BYTE], 
: 201 00 1 logio_msg = UPLIT BYTE (ZASCII ‘You Lack LOG_IO privilege.") : VECTOR C, LONG], 
; og 4! 1 vbn_bnds_msg = UPLIT BYTE (ZASCII ‘VBN pust Be >= 1.) : VECTOR LONGS, 
; S7 8 ; notcontig_msg = UPLIT BYTE sane artes se not contiguous. } 
; 205 Be : remount_msg = UPLIT BYTE CaAse tt pow neck READ and/or WRITE access to TARGET DEVICE. DISMOUNT and 
3 0 06 1 ascii_bracket = UPLIT BYTE GAseit y¥5 : VECTOR C, LONG), 
; 38 07 1 prompt buffer = UPLIT BYTE (ZASCII ‘Target system device (and boot file if not VMB.EXE): ") : VECTOR 
; 06 1 prompt¢_ buffer = UPLIT BYTE (ZASCII ‘Enter load address of primary bootstrap in HEX (default is 200) | 
; 210 09 1 prompt5_ buffer = UPLIT BYTE (ZASCII ‘Enter VBN of boot file code (default is 1) : °) : VECTOR C, LON. 
3 ) 8 19 : priboo_def_name = UPLIT BYTE (ZASCII ‘CSYSEXEJVMB.EXE') : VECTOR CL, LONGI; 
; ig \¢ 1 LITERAL 
: 214 151 dev_offset = 18, 
; 215 14 $1 Logto_Length = $¢. 
: 1 0215 1 vbn_bnds_len = 17, 
3; 21 8 1 1 remount_Tength = 77, 
: 218 17 1 notcontig_length= 28. 
3; 219 0218 1 prompt_lengt = 53, ! Length of prompt. 
3 $9 8 19 1 promptd_length = 65, ' Length of prompt2. 
3 1 $9 1 rompt3_length = 45, ! Length of renet . 
; 38 O98 : ootname_length = 15; ! Length of VMB.EXE. 
3 os 258 1 OWN 
3 25 0224 1 yes_no_buf : BLOCK fie BYTE] INITIAL (BYTE (0)), 
3 $$ 0225 1 yes_no_descrip : BLOCK (8, BYTE 
: 9a? Oe $3 INITIAL (LONG (1, yes_no_buf)), 
: 3 9 0228 1 logio_.descrip : BLOCK (8, BYTE) 
5 0 $3 1 INITIAL (LONG (Logio_length, logio_msg)), 
; 1 0230 1 vbn_bnds_descrip: BLOCK (8,BYTE) 
3 $ 0231 1 INITIAL (LONG (vbn_bnds_len, vbn_bnds_msg)), 
3 0 ; 1 remount_descrip : BLOCK (8, BYTE) 
3 0 1 INITIAL (LONG (remount_length, remount_msg)), 
; 235 0234 1 notcontig_descrip 
: 236 0235 1 : BLOCK (8,BYTE) 
; 237 0236 1 Nf TIAL (LONG (notcontig_ length, notcontig_msg)), eat nes 
: 238 0237 1 bracket_descrip : BLOCK (8, BYTE] ‘ T Descriptor for constant string consisting of ‘‘)"’. 
; 4 oS35 : INITIAL (LONG (1, ascii_bracket)); 
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appropriate places. 


Writes buffer containing modified copy of SYSS$SYSTEM:BOOTBLOCK.EXE 
into LBN #0 of target system device specified by user in step #1. 


Oo 
2 


Closes files. 
i Inputs: 
i none 


PMOPOPOPIPIPORIPIPIPONININPUPONIPUNPPONY 
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' Outputs: 
RO contains a status code. 


14-Sep-19 
ry rs ROUTINE write_boot = ! Writes the boot block. 
44 4 } 
ve : : Functional description: 
t8 43 } 1. Prompts for target system device and optional boot file spec. 
4 ri } 2. Determines if target device is Files-11 or FOREIGN. 

1 4 : 3. Determines starting LBN and size of VMB.EXE (or specified file) 
5 50 ; on the target system device specified by the user in step #1. 
2 1 : In case of Files-1 device this means opening file with 

4 § : an XABFHC epee fied in the FAB. 

5 : In case of a FOREIGN device this means calling external 

$ 33 ' routine ‘RTFSOPENFILE’’. 

28 28 - Prompt for VBN of boot file code. 
60 58 : 4. Prompts for memory location where primary bootstrap should be 
e +4 loaded in memory. 
e§ o : 5. Opens SYSSSYSTEM:BOOTBLOCK.EXE on the current system disk. 
4 e§ ! 6. Reads VBN #0 of SYSSSYSTEM:BOOTBLOCK.EXE into buffer. 
65 ‘ 7. Modifies buffer by piecing starting LBN, size and aonery location 

68 : obtained in steps #5 and #4 above, into the buffer at the 

: 

! 

1 

' 

' 

! 

! 

' 

' 

t 

' 

i] 

' 

' 


index, 
status; 


POPORIMININIPONININIPIAY 


Issue a SGETJPI syatee service call to discover whether the process 
executing WRITEBOOT has L0G_IO privilege. If not, don’t allow process 
to write on the target system disk. 


Wnrm— 


If NOT (status = Sgetjpi (efn = 3, itmlst = getjpi_itemlist, iosb = io_stat_block)) 
THEN RETURN .status; 
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LibSput_output (logio_descrip); 
a N $$$. NOPRIV:> i : 


~ 


' 
i Prompt for the target system device name optionally followed by the 
: nane ot a@ primary Reotstras file. ! . ' 


rompt_ descrip (dsc$w_length]_= prompt_length; 
prompt descrip Egsc$e-tengen2, <  prompt.pul fer: 

IF .priboo gercrip Cdsc$w_length] NEQ 0 
THEN Lib$sfreel_dd (priboo_descrip); ! deallocate previous string. 


wus -priboo_descrip Cdsc$w_length] EQ. 0 


BEGIN 

status = LibSget_input (priboo_descrip, prompt_descrip); 
If NOT .status 

a RETURN .status; 


' 
! Translate all lower case olphebette characters to upper case so that 
: an RMS translation will work. 


per tr ty t) ee et ee et ee ee ee Se er 
WNKUE WO OONO AE WO 


a count FROM 0 TO (.priboo_descrip Cdsc$w_length] = 1) 


AAAI AAAI AIA AANA II 


wn —O00 VMewn— DO NONE WIS OONANE MOL ER Wwn— 


SOOOOOCOOOOOOOCOOCOOCOSOOSSOOooooocoocoooooooooooOOOOOOOOOOOOOOoOO 


} sia 
4 file. spec = .priboo_descrip Cdsc$a_pointer] : VECTOR C, BYTE); 

4 IF ((.fiTe_spec C.count] GEQ ‘a') AND T.file_spec C.count) LEQ ‘z")) 
35 ince file Spec C.count] = .file_spec C.count] - %x‘'20'; 

t 

: ! Determine if the torget device is Files-11 or FOREIGN. Do this 
0 ! by SPARSEing the given file spec yeing the default of CSYSEXE]VMB.EXE 
1 ! and by specifying a NAM block. With block we obtain the device 
§ in n the nam$t_dvi fiel ane we build a string descriptor for this 
z : string and use system service SGETDEV to get the device characteristics. 
5 
3 P 0345 2 SFAB_INIT ( 
8 P § FAB = priboo_fab, 
9 P FAC = <GET>, 
50 P $ FNA = .priboo_descrip pesc$e_pointer), 
51 fo FNS = .priboo_descrip Cdsc$w_length], 
25 P 9 DNA = priboo_def_name, 
5 Y 1 DNS = tname_length, 
54 P 26 FOP = ° 
55 P 035 NAM = priboo_nam_blk, 


——— 
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KAB = pr ¥ H 
If NOT (status = SPARSE (FAB = priboo_fab)) 
THEN RETURN .status; 


pootdev descr tpt decdu_ length) = .(priboo_nam blkCnam$t_dviJ) <0,8>; 
bootdev_descripldsc$a_pointer] = priboo_fam_Blk(nam$t_dvi] + 1; 


IF NOT (status = SGETDEV a = bootdev_descrip 


UF = devchar_descrip)) 
THEN RETURN .status; 


At this point we have the target device characteristics. If the 
device is FOREIGN then we isolate the file name in the expanded 

ile spec and build a string descriptor for this substring. 
Next we call RTFSTARGET DEV to record the name of the target device. 
Then we call RTFSOPENFICE to get the starting LBN and size. 
on the other hand the device is Files-11, then we simply —— the file. 
The purpose of the open is to load the size and starting LBN of the 
file into the KABFHC block produced by RMS. In this latter case of a 
Files-11 device we then copy this data out of the XABFHC block into 
the OWN variable stat_block. 


If .devchar_buf fldev$v_for] ! i.e. if FOREIGN 
THEN BEGIN 


filspec_descripldsc$w length] = .priboo_nam_blk(nam$b_eslJ; 

index = libSindex (fils oc descrip bracket_descrip); 

filnam_descrip dsc$a_po nter) = -filspec_descriptdsc$a_pointer) + .index; 
filnam_descripldsc$w_length] = .filspec_descripldsc$w_length] - .index; 


RTFSTARGET_DEV (bcotdev_descrip); 
IF NOT (status = RTFSOPENFILE (filnam_descrip, 
o_block buf, 
stat_block)) 
THEN BEGIN 


b SeSeut cutout (remount_descrip); 
AETURN .status; 


(status = SRMS_OPEN (FAB = priboo_fab)) 
RETURN .status; 


N 
block(0) = .priboo_xabfhcCxab$l_sbn); 
A ae xab$l_sbn] EQL 0 


LibSput_output (notcontig_descrip); 
$RMS CLOSE (FAB = priboo_ fab); 
RETURN SS$_FILNOTCNTG; 


END; 
If apr ites xabfhc(xabSu_ffb) NEQ 0 
THEN stat_block i} = .priboo_xabfhc(xab$l_ebk 
ELSE stat_block(1) = .priboo_xabfhclxab$l_ebk) - 1; 
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SRMS_CLOSE (FAB = priboo_fab); 
END; 


; Prompt the user for the VBN of the boot file code. 


prompt _descrip([dsc$w_length]_ = prompt3_length; ! Set rompt descriptor 
shen totes 4 poet rye Ha = ed Sw He Ap : 


status = 0; 
wane NOT .status 


BEGIN 
IF .vbn_ descripldsc$w_length] NEQ 0 
THEN Lib$sfreel_dd (vbn_descrip); ! Deallocate previous string 


IF NOT (status = Lib$Sget_input (vbn_descrip, prompt_descrip)) ! Prompt for VBN 
THEN RETURN status: 7 ole mes “ son 


IF .vbn descripldsc$w Length) NEQ 0 ! Convert string to decimal # 
THEN status = otsScvt_tz_l (vbn_descrip.vbn) 
ELSE vbn = 1; ! Default VBN 


IF .vbn USS 1 ' Check for VBN < 1 
THEN 


BEGIN 

IF NOT (status = Lib$put_output (vbn_bnds_descrip)) 
THEN RETURN .status; 

status = 0; 


END; ! End of VBN prompt WHILE Loop 
stat_blocki0) = .stat_block([0] + (.vbn = 1); ! Update LBN to point to boot code 


i Open the bootblock file (called SYSSSYSTEM:BOOTBLOCK.EXE) Located on the 
: system disk. Ensure that the Logical name BOOTBLOCK will work. 


SFAB_INIT ( 
bootbl fab, 
SYSSSYSTEM: EXE’, 
<B10> 
*BOOTBLOCK', 
FOP = <UFO>): 
IF NOT (status = SRMS_OPEN (FAB = bootbl_fab)) 
THEN RETURN .status; 


~~ 

Pd 

o 
hunt 


1 
; 
' Read the first block of BOOTBLOCK.EXE into a page-long buffer in 
: memory. 


IF NOT (status = S$qiow ( 


4 
TEaSeo-19R4 25:36:40 yan=tt BLige-82 ve-OH762 
cna 
i ss 
7 rs . 


otbl_fab Cfab$i_stv], 
io$_readvblk, 
P 
THEN RETURN .status; 
' 


o$_rea 
pean 
i Here we prompt the user for the relative memory location that he wants 
: the primary tstrap loaded into. 


! 


~—— 
~~" 


ot af af af af af af 2t at ot a a 
2.0000 ANAS 
oO VewnN— ae 
vvuvv 
ss ooo ANNAN 
y tet werd 4 we 


! primary bootstrap 


rompt_descrip(dsc$w_length) = prompt2_length; 
seme t dence lotcechacse titer? = prompt? pul fer: 
status = 0; ! Set to false for following loop. 
5 WHILE NOT .status 

HY dO 

8 BEGIN 
490 4 If .loadadr_descripldsc$w_length] NEQ 0 
<3) 3 THEN LibSsfreel_dd (loadadr_descrip); 
49 91 status = LibSget_input (loadadr_descrip, prompt_descrip); 
toe 35 IF NOT "status TREN’ RETURN -Status; Hote 4 
498 94 IF slosdedr descr ipCdscSu_tength) NEQ 0 
497 95 THEN status = ots gut. te_\\lsadedr descrip. load_adr) 
498 38 ; ELSE load_adr = 512; ! Default 
sot 5. 
502 00 i ,ovd the starting LBN, size and relative load location into the first 
fe 03 : Longwords of the buffer containing the BOOTBLOCK code. 
05 : 
5] 04 block buffer Cbbl_l_filesize] = .stat_block(1); ! Copy filesize. 

0 05 block_buffer Cbbl-w_hiordlbn] = .(stat_block 04)<16 16>;! Swap LBN words for 

06 block-buffer Cbbl“w-loordlbn) = .(stat~blockl0J)<0,16>; ' DSC 

44 block_buffer Cbbl_l_loadadr] = .load_adr; ! Copy where to load 

09 


Assign a channel to target device. 


If NOT (status = Sassign ( 
DEVNAM = bootdev_descrip, 
CHAN = bootdev_cfhian)) 
THEN RETURN .status; 


‘ 
Copy the page-long buffer into LBN 0 of the target system device. 


: 499 


Se ral ah ah ah ab 


Ronononony — oe 


Fw “OOO NOUS WN Oo 


vo 


vv 


PPP PUP PASSA 
RIPQPOPRININIRY 2 et Pt ot to tt 


IF NOT (status = $qiow ( 


4 
WRIT T 18-se “19 36:40 AX-11 Bliss-32 V4.0-74 
VoeebOS 1a-eeer ihe Hishibg — Edots Bhi Sbadtekoas 2635.1 
; 7 & 5 CHAN = tdev_chan, 
3 § P § FUNC : aerate 
; P Pl = block buffer, 
3 e P2 = 512, 
$ P5 = Q)) 
; THEN RETURN .status; 
4 ' 
; 5 g Close the open files. 
; 5.2. 
; ; SRMS_CLOSE (FAB = bootbl_fab); 
: 540 5 : ' 
: re +44 : Return with success status. 
: 54 7m me 
3 (46 Bee§ RETURN SS$_NORMAL ; 
3 545 54 END; 
TITLE ret dy 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
4F 49 SF 47 GF 4C 29 68 63 61 C¢ 20 75 F 59 00000 P.AAA: .ASCII \You Lack LOG_IO privilege.\ 
ef 65 6 § of $9 6 69 72 70 20 0000F 
20 3D 3E 20 65 62 20 74 5 6D 20 4E sé ? sith P.AAB: .ASCII \VBN must be >= 1.\ 
6F 6€ 20 73 69 20 65 oc 69 $6 20 74 6F 6F 42 0002B P.AAC: .ASCII \Boot file is not contiguous.\ 
2 73 75 6F 75 67 69 74 6E 6F $3 0 74 QO003A 
61 20 44 41 45 52 £3 $8 Hy 61 $f 0 6F 59 00047 P.AAD: .ASCII \You Lack READ and/or WRITE access to TAR\ 
63 63 61 20 45 54 4 20 6F 2F $ 6 it 
¢ 41 54 20 6F 74 20 73 73 e§ 006 
49 44 20 $8 3 45 43 49 | 45 44 2 54 45 & OO6F eASCII \GET DEVICE. DISMOUNT and reMOUNT it.\ 
4F 4D 65 0 64 6E 61 § 54 4 4F 4D ; 007E 
E 74 69 20 54 4E 0080 
D 00094 P.AAE: .ASCII \I\ 
60 65 74 73 79 73 $8 74 65 #67 #7 1 54 00095 P.AAF: .ASCII \Target system device (and boot file if n\ 
74 6F 6F 62 20 64 6E 61 $8 65 63 6 6 65 OQ00A4 
6 ¢ $8 9 65 33 9 66 eo 0083 
7 30 i 33 ro 1 rt ; 3 os 2 4 e ef ita P.AAG ASEH Ry ee i ess of primary bootstrap \ 
. . n addr 
SRRUSE RH ARE HOO 8 Be ee 
74 6C 75 61 66 é3 % 2 5 % i $8 20 ? : ett ASCII Nim HEX (default is 200): \ 
6F 6 0 66 6F 20 4E 4 2 . 73 ras 74 of tte P.AAH: .ASCII \Enter VBN of boot file code (default is \ 
AROSE HPG RS REE Be 
6 A g $3 1 1 eASCII \I) : \ 
45 58 45 2€ 42 40 56 8 45 58 3 0158 P.AAL: .ASCII \CSYSEXEJVMB.EXE\ 
4B 435 4F $f $g 4 GF GF & bie P.AAJ eASCII \BOOTBLOCK\ 
45 58 45 2€ 3A 4D 45 54 53 59 5 4 53 59 5 150 P.AAK: .ASCII \SYSSSYSTEM: .EXE\ 


SOWNS ,NOEXE ,2 


W$oseoctgge 25:56:40 YMoTT BL igs82 yes O-742 


00# 00000 PRIBOO_DESCRIP: 
“BYTE (3) 
99 3 “BYT 
# 000 <BYTE 04] 
# 00008 LOADADR_DESCRIP: 
“BYTE  0C3) 
02 00008 “BYTE 
0 r 900¢ “BYTE 04] 
O# 00010 PROMPT_DESCRIP: 
01 1 Byte 
Ce 
00# 00018 VBN_ DESCRIP: 
YTE 0C3) 
92 00018 “BYTE 
00# 9001¢ YTE 0C4] 
0020 PRIBOO_FAB: vo 
00070 BOOTBL_FAB: 
-BLKB 80 
000CO PRIBOO_FILNAM: 
~BLKB 255 
001BF “BLKB 1 
001CO PRIBOO_EXP_NAME: 
-BCKB 255 
0028F “BLKB 
02 002CO PRIBOO_NAM BLK: 
.BYTE 2 
60 002C¢1 “BYTE 96 
FF 00 ce “BYTE <1 
00 002¢ “BYTE 0 
00000000" 002¢4 “ADDRESS PRIBOO_FILNAM 
00 002¢8 “BYTE 0 
00 002¢9 “BYTE 0 
FF QO2CA “BYTE = 
00 002¢B “BYTE 0 
00000000" 002C¢C “ADDRESS "sp EXP_NAME 
00009009 0200 LONG 
000# 00204 “WORD 
000# 00264 “WwORD 
00 4 0 EA “WORD 
000000 FO LONG 
000000 F4 “LONG 
8 “BYTE 
9 “BYTE 
0 0 FA “BYTE 
0 FB “BYTE 
FC “BYTE 
FD “BYT 
000 * 0080 PONG 
$600 “tone 
3 tm 
0 16 “LONG 
000 14 LONG 


1Foseoctee 28:55:49 yaRett BLigg=s2 vs.0n742 
ones, 1 gos PRIBOO_ xABPHC: otes 


.BYT 29 
06 me 
9900000 . 
00000004 
te PRIVILEGE RASK: 
0204 0008 00354 GETUPI _1TEMLIST: 
8 AbpRess* te] VILEGE _MASK 
00000000 $0800. 09 33¢ LONG PRS 
0364 10_STAT BLOCK: 
0036C TWO_BLOCK BUF: 
LKB. 1024 
0076C BOOTDEV abesti: . 
00774 BOOTDEV_CHAN: 
LK 3 
“BLKB 
4 
03) 


ie LOAD_ADR: 
.BLKB 

000000004 0077¢ DEVCHAR_ BUFF : 
0000000C 00788 DEVCHAR DESCRIP: 


LONG 
00000000° 0078¢ sADDRESS DEVCHAR_BUF F 
00# 00790 FILNAM_DESCRIP: ors) 


YTE 
00000000 00798 FILSPEC DESCRIP: 
00000000° 144 ice 1" ae epee EXP_NAME 
Ova STAT_BLOCK: 


00 OO7AC YES_NO BUF: 


00000001 $0780 YES_NO_ DeSeRiP: 


«LONG 
0000000° 00784 “ADDRESS. YES_NO_BUF 
00 O1A $0788 LOGIO DESCRIP: 

00 
00 
0 
0 


0 8 oOrea REMOUNT best 


00 solid oi woTconTié 


LOGIO_MSG 


00 
000 

000000 S, 
$00011 9O7e6 VBN _BNDS: D P: 
000 S VBN_BNDS_MSG 
000 : : 

0 5 hemo MOUNT _MSG 
0 IP: 

$ NO 


TCONTIG_MSG 


we aw Ad —a 
— we nm 


Page Ri 


3 
) 


eee ee, 


WRIT T 
v04 


000000006 


04 


HPoseoctane 25:56: 


00000000" 007DC 


OFFC 00000 

0000G 00 9E 0000 
$4443 0 9E 0000 

0000G 00 9€ 00010 

a900¢ 00 3 90017 

re 7C 00088 

git ie 

Sf 3s 

07 fe Boost 

ie 
033C f 5 + 

19 00 43 

aras £7 OF Ggoas 

24 00 Si 

4 4E 

35 4 O4F 

0099" CF beg 

og eee 

FO 0¢ 9F 00 é 

01 F 

FO 8 AT 63 Og 

bs ise 

FO 366A? oF p A 

02 Fe 9004 


- ADDRESS 


~EXTRN 
eEXTRN 


«PSECT 


1$: MOVW 


Mm 
ad 


4 AX-11 Bliss-32 V4.0-74 
a6 {BooTs. $RC cnifesoor.033;1 


ASCII _BRACKET 
TWO_BLOCK_BUF 
AKA 


SCODES,.NOWRT,2 


R2,R3,R4,R5,R6,R7_.RB.RI,R10,R11 
LOSE, R11 

ET_INPUT, R10 

FREE1_DD, R9 

UT OUTPUT, R8 

T_BESCRIP. R7 

AT_BLOCK 

1_TTEMLIST 


O~ 1 Orr rno 


STATUS, 3$ 
PRIVILEGE _MASK 


LOGIO_DESCRIP 
#1, LIBSPUT_OUTPUT 
#36, RO 


#53, PROMPT DESCRIP 
PROMPT_BUFFER, PROMPT_DESCRIP+4 
PRIBOO-DESCRIP 

SCRIP 
FREE1_DD 
SCRIP 


0295 


0297 
0299 
0300 


Hg 


0312 
0314 
0317 


_ 
— 
a 
— 


Bae ee, TN ak Rh Ope. Mee digs ee a: 
v04 


a=8ep-198e 11:58:00 LBdots. SRcSuRIfebOOT-039; 1 a 


1 
ED 56 €8 00073 BLBS TATUS, 2$ 
O2Ad Fj Of 3$ BRW si 
1 FO 6A? «3 00079 4$ MOVZWL PRIBOO_ DESCRIP, R1 
0 0} cE 07D MINE GL #1, COONT 
61 BF F4 8740 91 a082 5$: CMP @PRIBOO_DESCRIP+4CCOUNTI, #97 
7A oS F4 8740 1 OOBA CHB @PRIBOO_DESCRIP+4(COUNTI, #122 
F4 B740 26 83 0099 SUB? #32, @PRIBOO_DESCRIP+4CCOUNT) 
£7 50 1 2 00097 6$ AOBL $$ R1, a" 
0050 8F 00 6E 09 2¢ 90098 movcS #0, (SP), #0, #80, SRMS_PTR 
10 A? 5008 er BO O00A4 MOVW #20483, $RMS_PTR 
16 NA 01000000 BF p0 QOOAA MOVL wlori7eie,, rags PTR+4 
F OA? 03 90 00086 MOVE *5° $ $RMS~P 
4 Az 0310 C? 9E OOOBA MOVAB PRIBOO MRRBEAC, SRMS_PTR+36 
8 A7 0280 (7 9 000C0 MOVAB PRIBOO-NAM_BLK, TR+40 
ae F4 A? 00 000C6 MOVL PRIBOO =DESCRIFAG, SRAS _PTR+44 
400A? 0000" CF 43 000¢B MOVAB PRIBOO-DEF_NAME, SRMS_PTR+48 
44 AT FO A? 90 00001 MOVB §PRIBOO-DESTRIP, $RMS_PTR+52 
45 A? OF 90 00006 MOVB = #15 shims PTR+53 
10 A? 9F OOODA PUSHAB PRI 00_F 
socsone a cr 
7D 56 £9 000E7 BLBC ‘STATUS, 7$ 
o75c «C7 02c4 C7 9B OOOEA MOVZBW PRIBOO.NAM_BLK+20, BOOTDEV_DESCRIP 
0760 (¢7 02¢5 C7 H O00F MOVAB PRIBOO- “NAM~BLK+21, BOOTDEV~DESCRIP+4 
0778 5 OF OOOFA PUSHAB DEVCHAR_DESCRIP 
7E 04 OOOFE CLRL = = (SP) 
075c C7? 9F 00100 PUSHAB BOOTDEY DESCRIP 
000000006 00 05 FB 00104 CALLS #5, SYSSGETDEV 
56 50 pO 00108 MOVL RO. sre Tus 
56 56 E9 0010E BLBC STATUS, 7$ 
54 O76F (C7? €9 00111 BLBC DEVCHAR BUFF+3, 8$ 
0788 (7 028B C7 «(9B 00116 MOVZBW PRIBOO_RAM BLKéI1, FILSPEC_DESCRIP 
07¢8 C7? 9F 0011D PUSHAB BRACKET DE ESCR 
0788 C7? 9F 00121 PUSHAB f LSPEC PE ScRIP 
000000006 00 03 FB 00125 CALLS LIBSINDEX 
0784 (C7 078C 074 H 0012¢ NOVAB orivgree DESCRIP+4C INDEX], FILNAM_DESCRIP+4 
0780 7 0788 «¢7 50 A3 001 SUBW3. INDEX, FILSPEC_DESCRIP, FILNAM_DESCRIP 
O75c C7 «9F 0013C PUSHAB BOOTDEY DESCRIP 
000000006 00 01 FB 00140 CALLS TFSTARGET_DEV 
0794 C7 9F 00147 PUSHAB STATS BLOCK 
035¢ C7 OF 0014B PUSHAB TWO BLOCK BUF 
0780 C7? OF OO14F PUSHAB FIL RAS DESCRIP 
000000006 90 03 FB 0133 CALLS +e RIF SPE NF ILE 
53 36 EB HES BLBS STATUS 3s 
0788 C7 SF 00160 PUSHAB REMOUN nf DESCRIP 
68 01 FB 0164 CALLS #1, LIBSPUT_OUTPUT 
o18¢ 31 167 7$: BRU 24$ 
10 A? 9F OO16A 8S: PUSHAB BR 1B00 
000000006 00 gi FB 016D CALLS . SY VSSOPEN 
56 0 pO 00174 MOVL +4 * STATU 


kee ee aT PI a Na ia le ss 


WRITEBOOT -Sep-1984 23:36:40 AX-11 Bliss-32 V4.0-74 Page 16. 
vat 1278 08-138e $7 38:68 BOOTS. SRCIWRITEBOOT .83 31 ’ 3 
E 56 €9 00177 BLBC STATUS, 7$ : 
0794 FS 0338 i 09 aK OV PRIBOO_XABFHC+40, STAT_BLOCK : 20) | 
07¢0 ¢ 9F 001 3 PUSHAB NOTCONTIG DESCRIP + 0404 | 
68 1 FB 001 CALLS #1, LIB$POT_OUTPUT : | 
10 AZ? 9F OO18A PUSHAB PRI : 0405. 
B 01 FB 0018D CALLS #1, SYSSCLOSE : 
0 O2Ac 8F 3¢ 00130 MOVZUL #684, RO ; 0406 | 
0324 c7 8 0196 9$: ist PRIBOO_XABFHC+20 ; 0408 | 
0798 (7 0320 c 06 nis MOVL PRIBOO_XABFHC+16, STAT_BLOCK+4 3 0409 | 
0798 (7 0320 (7 01 g3 O1A5 10$:  SUBL3. #1, PRIBOO_XABFHC+16, STAT_BLOCK+4 + 0410 | 
10 A? 9F OO1AD 11$:  PUSHAB PRIBOO FAB + 0411) 
6B 01 FB 001B0 CALLS #1, SYSSCLOSE ; | 
67 2D 80 00183 12$: MOVW #45, PROMPT DESCRIP > 0419) 
04 A7 0000° ct — 00186 MOVAB PROMPT3_BUFFER, PROMPT_DESCRIP+4 + 0420 
6 D4 001BC 13$:  CLRL ‘STATUS : 0422, 
4C 56 €8 OO1BE 14$:  BLBS STATUS, 19$ + 0423) 
08 A7 83 001C1 TSTW | VBN_DESCRIP + 0426 | 
06 13 0014 BEQL 15$ : 
08 A? 99F 001C6 PUSHAB VBN_DESCRIP : 0427 | 
69 01 FB 001C9 CALLS #1, LIBSSFREE1_DD : 
57 DD OO1CC 15$:  PUSHL R7 + 0429 | 
08 A? 9F OOICE PUSHAB VBN_DESCRIP F 
6A 02 FB 00101 CALLS #2, LIBSGET_INPUT ; 
56 50 DO 001D4 MOVL RO, STATUS F 
30 56 €9 00107 BLBC STATUS, 18$ F 
08 A? 8 001DA TSTW  VBN_DESCRIP + 0432 
13 13 001DD BEQL 16$ : 
0790 C7 9F OO1DF PUSHAB VBN + 0433 
08 A? OF OO1E3 PUSHAB VBN_DESCRIP ; 
000000006 00 02 FB 001E6 CALLS #2, OTS$CVT_TZ_L F 
56 50 DO OO1ED MOVL RO, STATUS F 
05 11 001F0 BRB 178 : 
0790 7 01 DO OO1F2 16$ MOVL #1, VBN + 0434 
0790 C7 DS OO1F7 178 TSTL + 0436 
C1 14 001FB BGTR 14$ ; 
0780 (C7 9F OO1FD PUSHAB VBN_BNDS_DESCRIP + 0439 
68 01 FB 00201 CALLS #1, LIBSPUT_OUTPUT 3 
56 50 00 00204 MOVL RO. S : 
B2 56 8 00207 BLBS STATUS, 13$ : 
0119 1 00 OA 18$: BRW $ + 0440 
50 0794 C7 0790 C7? (€10020D 19$:  ADDL3 BN, STAT_BLOCK, RO + 0445 
0794 (7 FF AO 9E 00215 MOVAB -1(RO), STAT_BLOCK : 
0050 8F 00 6E om 09 2c 99 18 MOVCS #0, (SP), #07 #80, SRMS_PTR : 0457 
60 A7 5003 8F BO 00224 MOVW #20483 SRMS_PTR F 
64 A7 00020000 8F b0 022A MOVL #131072, $RMS_PTR+4 : 
76 «OA? 20 90 00232 MOVE #32, S$RMS_PTRT22 ; 
7F OA? 2 90 00 MOVB = #2,_: SRMS_PTR+31 : 
00sec 86 C7 0000" CF 9€ O023A MOVAB P.AAJ, SRMS_PTR+44 : 
0090 (¢7 00° cr 3 0241 MOVAB P.AAK, SRMS"PTR+48 ; | 
0094 (7 FO9 = BF B 0248 MOVW #3849, SRMS"PTR+52 ; | 
60 A? 9F O0024F PUSHAB BOOTBL_FAB : 0458 | 
000000006 00 01 FB 00252 CALLS #1, SYSSOPEN : 


BS IE EOS ES Weak poe | ee cons 


1B-Seo-198 25:36:40 yan] BLigsa32 v4.0-762 


WRITEBOOT 
| VOLebORe 14-Sep-1984 
3 56 0 pO 00259 MOVL RO, STATU 
AB 56 B9 0 2¢ BLBC STATUS, 18$ 
E ?C 0025F CLRQ =(SP) 
7E 4 7D 00261 Ova #1, =(SP) 
7E 9200 F 3C 00264 MOVZ2WL #512, =(SP) 
035¢ C7 F 00269 PUSHAB BLOCK_BUFFER 
: C 0026D CLRQ = = (SP) 
7E 31 7D 0 of MOVO #49, =(SP) 
6C AZ DD PUSHL BOOfBL_FAB+12 
7E D4 0027 CLRL. = = (SP) 
000000006 20 ¢ FB 0027 CALLS #12, SYS$SQIOW 
56 D 0 7E MOVL RO, STATU 
86 5 : 81 BLBC STATUS, 18$ 
67 41 BF 9B 00284 MOVZBW #65, PROMPT DESCRIP 
04 AZ 0000" cr 9E 00288 MOVAB PROMPT2_BUFFER, PROMPT_DESCRIP+4 
6 D4 0028E CLRL STATUS 
3A 56 E8 00 30 20$: BLBS STATUS, 23$ 
FBO 8 0029 TSTW LOADADR_DESCRIP 
06 13 00296 BEQL 1$ 
FB AZ «OF 00298 PUSHAB LOADADR_DESCRIP 
69 01 FB 00 98 CALLS #1, LIBSSFREE1_DD 
57 DD 0029E 21$:  PUSHL 
F8 AZ? 9F 002A0 PUSHAB LOADADR_DESCRIP 
6A 02 FB 002A3 CALLS #2, LIBSGET_INPUT 
56 50 DO 002A6 MOVL RO, STATUS 
7A 56 E9 002A9 BLBC STATUS, 24$ 
FB OA? 83 OO2AC TSTW OADADR_DESCRIP 
13 13 OO2AF BEQL 2$ 
0768 C7 9F 00281 PUSHAB LOAD_ADR 
FB A? 9F 00285 PUSHAB LOADADR_ DESCRIP 
000000006 00 08 FB 00288 CALLS #2, OTSSCVT_TZ_L 
56 50 DO 002BF MOVL RO, STATUS 
| cc 11 002c2 BRB 
0768 7 0200 8F 3C 002C4 22$:  MOVZWL #512, LOAD_ADR 
C3 11 002cB BRB 20$ 
035¢ «C7 0798 C7 DO 002CD 23$:  MOVL STAT_BLOCK+4, BLOCK_BUFFER 
0360 (7 0796 ¢7 B0 00204 MOVW § STATBLOCK+2, BLOCK~BUFFER+4 
0362 (7 0794 ¢7 BO 002DB MOVW § STAT“BLOCK, BLOCK BOFFER+6 
0364 (7 0768 (C7 DO 002E2 MOVL §LOAD"ADR, BLOCK_BOFFER+8 
7 7C 002E9 CLRO = = (SPT 
0764 C7? OF OOcEB PUSHAB BOOTDEV_CHAN 
075C C7 OF OOZEF PUSHAB BOOTDEVDESCRIP 
000000006 00 04 FB 002F3 CALLS #4, SYSSASSIGN 
56 0 09 00 FA MOVL RO STATUS 
26 6 E FD BLBC STATUS, 24$ 
—E 7C 00300 CLRQ =(SP) 
7E 7C 00302 CLRQ = = (SP) 
7E 9200 BF 3C 00304 MOVZWL #512, -(SP) 
035¢ c? 9F 00309 PUSHAB BLOCK_BUFFER 
7C 00300 CLRQ = = (SP) 
7E 20 7D 0030F MOVO #32, =(SP) 
7E 0764 C7 3¢ 00 if MOVZWL BOOTDEV_CHAN, -(SP) 
7E 04 0031 CLRL 5s?) 
000000006 90 of F 19 CALLS #12, SYS$QI0W 
5 D 9 MOVL RO, STAT : 
04 56 CE BLBS STATUS, 25$ 
3 VL U e 
50 56 DO 00326 248 MO STATUS, RO 


— 


5 
WRIT T iS-se -1984 23:36:40 X-11 Bliss-32 V4.0-74 
you~808- 12-80 8-1 he $7 :38:98 BOOTS. ER RCSURITEDOOT .049; 1 
gf 9 RET 
60 A7 OF A 25%: PUSHAB eooTet of 
8 me D CALLS » SYSSCLOSE 
1 OD MOVL 
04 00 RET 
; Routine Size: 820 bytes, Routine Base: S$CODE$ + 0000 
; 546 0544 1 END 
; 547 0545 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
5 SOWNS 2016 NOVEC, WRT, 4 »NOEXE, ey LCL, REL, } migeea§ Tong bot t 
: SPLITS 351 NOVEC.NOWRT, »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 820 NOVEC,NOWRT, RD ; EXE,NOSHR, LCL, REL. CON.NOPIC,ALIGN(2) 
; Library Statistics 
Pe Pee eee... Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBILIB.L32;1 18619 82 0 1000 00:01.9 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:WRITEBOOT/OBJ=OBJ$:WRITEBOOT MSRC$:WRI TEBOOT/UPDATE=(ENH$: WRI TEBOOT) 


gd 820 code + 2367 data bytes 
me: 
Elapsed Time 00:28:9 
Lines/CPU Min: 1577 
sovenee/< Puta: 29927 
ry Used: 276 pages 
eee ation Complete 


And AH-BT13A-SE NT CORPORATION 
D PROPRIETARY 
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